aide sur débogage combo

Bonjour à tous

Avis aux spécialistes de macros et combobox

cette combobox ne fonctionne pas sur des ordinateurs auxquels j'envois un fichier la contenant

j'ai un message d'erreur de debogage et est mis en surbrillance la ligne jaune

ci dessous,

comment réparer cette erreur et faire que cette combo fonctionne partout ?

je suis sous excel 2003 , pour les autres pc c'est variable excel 2003, 2007, 2010

Je vous remercie d'avance de m'éclairer

Bonne journée à tous

Giorgios

Private Sub ComboBox1_Click()
Set ligne = Range("A:M").Find(CStr(ComboBox1.Value), LookIn:=xlValues, lookat:=xlWhole)
If ligne Is Nothing Then Exit Sub
ligne = ligne.Row
ComboBox1.Top = Range("A" & ligne).Top - 24
ActiveWindow.ScrollRow = ligne - 1
Cells(ligne, 1).Select
ComboBox1 = "Sélectionnez une journée,CLIQUEZ ICI"
End Sub

Private Sub ComboBox1_GotFocus()
ComboBox1.DropDown
End Sub

Private Sub ComboBox2_Change()

End Sub

Private Sub Worksheet_Activate()
MaJListe
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
MaJListe
End Sub