Re : Recopier que des cellules pleines
Merci pour vos réponses.
Mais si je mets Imputation = "" comme m'a conseillé Jean Marcel, ma colonne imputation est vide.
Je pense que la solution serait de "vider" la variable imputation avant de recommencer la boucle mais je ne sais pas où ni comment l'écrire.
Je vous remets le code:
For compteurDeFeuille = 8 To 15
If Sheets(compteurDeFeuille).Name <> "CUMUL" Then
NomDeLaFeuille = Sheets(compteurDeFeuille).Name
For NbLigne = 17 To 36
If Sheets(NomDeLaFeuille).Cells(NbLigne, 4) <> "" Then
Libellé = Sheets(NomDeLaFeuille).Cells(NbLigne, 4)
For Concatenation = 5 To 16
Imputation = Imputation & Sheets(NomDeLaFeuille).Cells(NbLigne, Concatenation)
Next
NbHeures = Sheets(NomDeLaFeuille).Cells(NbLigne, 21)
With Sheets("Cumul")
On Error GoTo GestionDesErreurs
MaLigne = Application.WorksheetFunction _
.Match(Libellé, Worksheets("Cumul").Range("A1:A10000"), 0)
.Cells(MaLigne, 3) = .Cells(MaLigne, 3) + NbHeures
End With
End If
AutreValeur:
On Error GoTo 0
Next
End If