bonjour
je compte sur votre aide pour pouvoir résoudre mon problème.
je cherche une fonction qui me permettera d'insérer un nobre de cellules vièrges sur un nombre variable de lignes.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim trouver As Boolean
trouver= false
For i = m To 1 Step -1
VALEURA = Range("C" & i).Value
VALEURC = Range("A" & i).Value
VALEURD = Range("E" & i).Value

VALEURB = Range("F" & i).Value
If VALEURA <> VALEURB Or VALEURC <> VALEURD Then
For j = i To m
VALEURB1 = Range("F" & j).Value
VALEURD1 = Range("E" & j).Value
If VALEURA = VALEURB1 Or VALEURC = VALEURD1 Then
For k = i To j + 1
 ' inserer 3 cellules vides de la colonne A jusqu' à la colonne c 
 Next k

trouver= true (trouver est une valeur booléenne)
End If
if trouver=false
insérer des cellules vides à partir de la colonne D et de la ligne i
end if
Next j


Next i

les instruction dont j'en ai besoin sont en rouge dans le code
Merci d'avance