Sélectionner multiples cellules contenant du texte

Bonjour,

je souhaiterais savoir comment sélectionner toutes les cellules de ma colonne C qui contiennent "TOTAL".

Par la suite, j'aimerais insérer une ligne avant chacune de ces cellules.

Quelqu'un peut m'aider svp ?

Bonjour,

Essaie avec cette macro

Sub ChercheTotal()
Dim DerLig As Long, Ligne As Long
    With Worksheets("Feuil1") 'Nom de feuille à adapter
        DerLig = .Range("C" & Rows.Count).End(xlUp).Row
        For Ligne = DerLig To 1 Step -1
            If UCase(.Range("C" & Ligne).Value) Like "*TOTAL*" Then
                .Rows(Ligne).Insert
            End If
        Next Ligne
    End With
End Sub

A+

Merci d'avoir pris le temps. Malheureusement il ne se passe rien quand je lance cette macro

Une idée d'où peut venir le problème ?

As-tu corrigé le nom de la feuille dans le code ?

A+

Oui, bien sûr.

J'ai essayé ça, ça marchait pas.

J'ai essayé aussi de renommer ma feuille "Feuil 1" pour pas changer ton code du tout.

Ca marchait pas non plus

Je te joint le fichier avec la macro que tu m'as donné.

L'idée à terme est de pouvoir avoir un formulaire pour entrer un nouveau véhicule, et qu'il s'insère dans les différents tableaux des onglets suivants.

Je sais pas vraiment comment m'y prendre.

Est-ce que je dois faire toutes les mises en pages avec des macros où je peux juste insérer les noms et conserver les formules qui iront chercher les renseignements voulus ?

Joaquin

Dans ton message initial, tu indiquais

je souhaiterais savoir comment sélectionner toutes les cellules de ma colonne C qui contiennent "TOTAL".

Au vu de ton classeur, il ne s'agit pas de la colonne C mais de la colonne B.

Sub ChercheTotal()
Dim DerLig As Long, Ligne As Long
    With Worksheets("CONSO CARBU")
       DerLig = .Range("B" & Rows.Count).End(xlUp).Row
        For Ligne = DerLig To 1 Step -1
            If UCase(.Range("B" & Ligne).Value) Like "*TOTAL*" Then
                .Rows(Ligne).Insert
            End If
        Next Ligne
    End With
End Sub

A+

Super ! Merci beaucoup pour le coup de main.