Salut Moé,
En ajoutant le bout de code ci-dessous à ta macro et deux boutons sur ton UserForm2 - comme dans le fichier ci-joint - ça devrait faire l'affaire.
Private Sub CommandButton1_Click()
Dim i&, fin&
If modif Then
With Feuil2
If OptionButton1 = True Then
.Range(.Cells(lign, 1), .Cells(lign, 8)).Interior.Color = 5287936
Else
.Range(.Cells(lign, 1), .Cells(lign, 8)).Interior.Color = 5066944
End If
For i = 1 To 7
.Cells(lign, i) = Controls("Textbox" & i): Controls("Textbox" & i) = ""
Next i
End With
..............
..............
Cordialement
EDIT : Fichier échangé à 10:00 en Suisse