Option Explicit
Sub Supprimer_ligne_rdc() 'JCGL+ca
Dim Rep
Rep = MsgBox("Attention, vous allez effacer la ligne " & Range("o1").Value, vbOKCancel, "Suppression ligne")
If Rep = vbOK Then
Range("B" & Range("o1").Value).ClearContents
Range("f" & Range("o1").Value).ClearContents
Range("g4").Select
End If
End Sub