Boucle If - Erreur 91

Bonjour à tous,

Je suis entrain d'utiliser une CheckBox dans un UserForm mais je rencontre une erreur dans la deuxième boucle if que j'ai réalisé.

Lorsque je lance le code l'erreur 91 "Object variable or With block variable not set".

Visiblement l'erreur viendrait de cette ligne :

ActiveSheet.Range("A10:A30").Find("Mr. G").Select

Mon code global est le suivant :

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then
ActiveSheet.Range("A10:A30").Find("").Select

Range(ActiveCell, ActiveCell.Offset(0, 2)).BorderAround _
ColorIndex:=1, Weight:=xlThin
Range(ActiveCell, ActiveCell.Offset(0, 2)).Merge
Range("A10:C10").BorderAround _
ColorIndex:=1, Weight:=xlMedium

ActiveCell.Value = "Mr. G"
ActiveCell.Font.Name = "Arial"
Range(ActiveCell, ActiveCell.Offset(0, 2)).HorizontalAlignment = xlCenter
Range(ActiveCell, ActiveCell.Offset(0, 2)).VerticalAlignment = xlCenter

End If

If CheckBox1.Value = False Then
ActiveSheet.Range("A10:A30").Find("Mr. G").Select
ActiveCell.ClearContents

End If

End Sub

Sauriez-vous comment résoudre ce problème ?

Merci de votre aide !

bonjour,

les cellules fusionnées sont sources de difficultés en tout genre ...

voici un proposition de correction

ActiveSheet.Range("A10:C30").Find("Mr. G").Select