Bonjour
je voudrais changer la couleur de la police et mettre en gras les lignes sélectionner
Dim ligne As Integer
If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "Confirmation") = vbYes Then
Worksheets("Resto").Select
ligne = Sheets("Resto").Range("a456541").End(xlUp).Row + 1
'...