Copier coller dans les cellules des lignes non vide

Bonjour à tous,

j'aurais besoin d'un petit coup de main VBA

J'ai une date dans une cellule (ici A2)

J'aimerai la copier coller dans tous les cellules de la colonne D pour les lignes qui ne sont pas vide.

Voir schéma sur le fichier ci joint

Merci d'avance pour votre aide

Enzo

Une suggestion, dans une nouvelle colonne G (formule à copier en G3, donc) :

=SI(ESTVIDE(D3);$A$2;D3)

Cordialement, Daniel

Bonjour

Code module

Sub remplir()
Dim Cel As Range
Today = Date
For Each Cel In Range("D3:D8")
If  IsEmpty(Cel.Offset(, 1)) Or Isempty(Cel.offset(,2) Then
Cel.Value = ""
Else
Cel.Value=Range("A2").Value
End If
Next Cel
End Sub

Cordialement

Je vais tourner ma question autrement car je sais comment arriver au résultat souhaité.

Si j'ai D1, D2, D3 de NON VIDE, quel code VBA me permet de sélectionner C1, C2 et C3, soit les cellules à coté.

Juste cela, ensuite je ferai un copier coller bateau.

Merci d'avance

Bonjour

If Application.CountA(Range("D1:D3"))=0 Then
Range("D1:D3").Offset(0,-1).Select

Cordialement

Merci beaucoup et désolé pour la réponse tardive