Message en cas de cellule vide

Bonjour tout le monde,

voila j'ai fait ce code, et j'aurai besoin de le modifier pour me permettre de dire que si la cellule A2 est vide alors il m'écrit en A2 "No result", sinon il continue la macro ... c'est a dire allez sur la derniere ligne ... est ce que quelqu'un peut m'aider car j'avoue que j'ai un peu de mal a y arriver ... enfin non, je n'y arrive pas....

Merci par avance pour votre aide

Laurent

Sheets("Export").Select

Range("A1").Select

Selection.End(xlDown).Select

ActiveCell.Offset(rowOffset:=1).Activate

Bonjour

Un essai. Te convient-il ?

Sheets("Export").Select
    If Cells(2, "A").Value = "" Then
        Cells(2, "A").Value = "No result"
        End
    End If
    Cells(2, "A").End(xlDown).Select
End Sub

salut gmb,

merci pour ta reponse, navré, mais j'ai pas le temps d'essayer tout de suite ...

J'essaye ce soir ou au pire demain.

Je te tiendrai au courant.

A plus

Laurent