RE RE RE Salut Robert,
Je te remercie pour ces infos qui m'apportent un plus dans ce que je recherche.
Moi de mon côté je cherchais également un solution possible et j'aimerais, si tu le veux bien, avoir ton avis dessus :
Sub TEST()
Dim i As Integer
i = 0
Range("b5").Select
i = i + 1
While Len(Trim(ActiveCell.Value)) <> 0
ActiveCell.Offset(0, 1).Select
Wend
If ActiveCell.Value = 0 Then
ActiveCell.Offset(0, -1).Copy
End If
Range("b26").Select
While Len(Trim(ActiveCell.Value)) <> 0
ActiveCell.Offset(0, 1).Select
Wend
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Celui-ci, me permet en plus, de copier la valeur située une cellule avant la valeur null. et de la coller là ou je veux(dans ce fichier ou un autre)
Le problème(eh oui, comme dans beaucoup de cas, je crois), c'est qu'en plus de me copier la valeur, il me copie dans la cellule qui reçoit, le format de la copie(donc, dans le tableau que j'avais joint), la couleur(que je supprime par la suite, et la bordure que je ne veux pas).
As-tu une idée ?
Merci