Tintin

Salut Stick,

je pense que ceci devrait pouvoir t'aider :

Sub Chercheptetitchien()

Dim a As Integer
Dim Msg As String


Recommence:

If Not IsEmpty(Range('A1').Offset(a, 0)) Then

a = a + 1

GoTo Recommence

Else

a = a + 1

MsgBox ('La cellule A ' & a & ' est vide')

End If

End Sub

Bonne soirée